home *** CD-ROM | disk | FTP | other *** search
/ MacWorld: Hardware Guide 1994 / Macworld Interactive - Hardware Guide 1994 (PDO).iso / Demos / Aldus® SuperPaint / Aldus SuperPaint 3.0 Trial Size / Aldus SuperPaint 3.0 Trial Size.rsrc / TEXT_255.txt < prev    next >
Text File  |  1993-03-24  |  2KB  |  29 lines
  1. % TexturesDict - v1 Copyright 1991 Silicon Beach Software, inc.
  2. userdict begin /TexturesDict 70 dict def
  3. TexturesDict end begin
  4. /TexturesDict_version 1 def
  5. /a{bind def}bind def/b{exch def}a/i{/colorimage where}a/c{i dup{exch pop}if}a
  6. /nulld{counttomark{null def}repeat pop}a mark/f/g/h/j/k/l/m/n/o/p/q/r/s/t/w/x/z/B/C/D/E/F/G nulld
  7. /d{5 index 4 index gt 8 index 3 index lt 6 index 5 index gt 9 index 4 index lt and and and[10 2 roll cleartomark}a
  8. /fillpath{userdict/TexturesDict get begin tp{aload pop 1 1 4 index{gsave pop 3 index
  9. aload pop translate tr aload pop{clippath}stopped{-10000 dup dup dup}{pathbbox}ifelse d{fsa{exec}forall}if 3 index aload
  10. pop 2 index add exch 3 index add exch 5 index astore pop grestore}for 4{pop}repeat}forall end}a
  11. /e{systemdict/vmreclaim known{1 vmreclaim}if vmstatus exch sub exch pop exch 10000 add lt{stop}if}a
  12. /defineimagearray{userdict/TexturesDict get begin{{readstring}}{{readhexstring}}ifelse/x b
  13. /f b/g f{8}{exch}ifelse def/h b/j b/k j f{5 mul}{g 1 eq{8 div ceiling}if}ifelse round cvi def
  14. /z c def/B f{z{.8}{.2}ifelse}{1}ifelse def f{i{systemdict ne{/l j string def/m j string def
  15. /n j string def/o j string def}if}if}if f{/C j 4 mul round cvi def/D C string def/E j round cvi def
  16. /F E string def}if/p k h mul round cvi def p B mul e/q 30000 B div k div floor k mul round cvi def
  17. /r p q div ceiling cvi array def/s 0 def{/t p q le{p}{q}ifelse def r s f{/G 0 def t B mul round cvi string
  18. t k div round cvi{z{dup G currentfile D x pop putinterval/G G C add def currentfile F x pop pop}
  19. {currentfile D x pop pop dup G currentfile F x pop putinterval/G G E add def}ifelse}repeat
  20. }{currentfile t string x pop}ifelse put/s s 1 add def/p p t sub def p 0 le{exit}if}loop
  21. end}a/u{r s get/s s 1 add def}a/v{r s get w j getinterval/w w j add def}a/A{r s get length w le
  22. {/s s 1 add def/w 0 def}if}a/imageit{userdict/TexturesDict get begin/s 0 def/w 0 def f
  23. {c{i pop systemdict eq{{v}{v}{v}{v A}}{{v l copy}{v m copy}{v n copy}{v o copy A}}ifelse
  24. true 4 colorimage}{{u}image}ifelse}{{u}image}ifelse end}a/settexturepat{8 dict dup begin
  25. /PatternType 1 def/PaintType 1 def/TilingType 1 def/BBox tr def/XStep BBox 2 get BBox 0 get
  26. sub def/YStep BBox 3 get BBox 1 get sub def/PaintProc{pop save fsa{exec}forall restore}def end matrix
  27. gsave tp 0 get 0 get aload pop translate makepattern grestore setpattern}a/gofillit{systemdict
  28. /makepattern known{settexturepat{eofill}{fill}ifelse}{{eoclip}{clip}ifelse fillpath}ifelse}a end
  29.